unit Validacao;

interface

function CNPJValido (CNPJ : String): Boolean; StdCall;

implementation

function CNPJValido (CNPJ : String): Boolean; StdCall;
begin
   Result := True;
end;

end.
